home *** CD-ROM | disk | FTP | other *** search
/ Advanced Placement Companion: Precalculus / Advanced Placement Companion: Precalculus.iso / pc / M_DIR / 12-01004.DIR / 00104_Button Lingo.ls < prev    next >
Encoding:
Text File  |  1998-03-12  |  1.3 KB  |  59 lines
  1. on startMovie
  2.   global answered, counter, missed
  3.   set answered to 0
  4.   set counter to 0
  5.   set missed to 0
  6. end
  7.  
  8. on button
  9.   set thisOne to the clickOn
  10.   set the locH of sprite thisOne to the locH of sprite thisOne + 2
  11.   set the locV of sprite thisOne to the locV of sprite thisOne + 2
  12.   updateStage()
  13.   puppetSound("click")
  14.   updateStage()
  15.   repeat while soundBusy(1)
  16.   end repeat
  17.   set the locH of sprite thisOne to the locH of sprite thisOne - 2
  18.   set the locV of sprite thisOne to the locV of sprite thisOne - 2
  19.   updateStage()
  20. end
  21.  
  22. on cursor
  23.   if rollOver(37) = 1 then
  24.     set the visible of sprite 37 to 1
  25.   else
  26.     set the visible of sprite 37 to 0
  27.   end if
  28.   if rollOver(38) = 1 then
  29.     set the visible of sprite 38 to 1
  30.   else
  31.     set the visible of sprite 38 to 0
  32.   end if
  33.   if rollOver(39) = 1 then
  34.     set the visible of sprite 39 to 1
  35.   else
  36.     set the visible of sprite 39 to 0
  37.   end if
  38.   if rollOver(40) = 1 then
  39.     set the visible of sprite 41 to 1
  40.   else
  41.     set the visible of sprite 42 to 0
  42.   end if
  43.   if rollOver(41) = 1 then
  44.     set the visible of sprite 41 to 1
  45.   else
  46.     set the visible of sprite 41 to 0
  47.   end if
  48.   if rollOver(42) = 1 then
  49.     set the visible of sprite 42 to 1
  50.   else
  51.     set the visible of sprite 42 to 0
  52.   end if
  53.   if rollOver(43) = 1 then
  54.     set the visible of sprite 43 to 1
  55.   else
  56.     set the visible of sprite 43 to 0
  57.   end if
  58. end
  59.